# Figure 1: Distribution of the Number of Propositions per Voting Day


# 1. Load Packages ----

library(ggplot2)

# 2. Read in Data ----

load(file = "df_propositions.RData")

# 3. Create Graph ----

ggplot(data = refs) +
  geom_histogram(mapping = aes(x = props, y = ..count..), stat = "count",
                 fill = "grey", color = "black") +
  scale_x_continuous(name = "Number of propositions per voting day",
                     breaks = seq(1,9,1)) +
  scale_y_continuous(name = "Absolute frequency",
                     breaks = seq(0,35,5),
                     labels = seq(0,35,5),
                     limits = c(0,35)) +
  theme_bw(base_size = 13)

# 4. Save Graph ----
ggsave(filename = "Figure1.pdf", width = 7.5, height = 4.3)